home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Win9x AutoLogon.xpl < prev    next >
Text File  |  2001-05-08  |  1KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Auto Login\Windows 98/ME"
  5. "NAME"="Settings"
  6. "VERSION"="1.09"
  7. "OSVERSION"="00101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Logon to Network"
  10. "DESCRIPTION 1"="To disable logon requirement [allow anonymous user], check box."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://members.aol.com/ojatex/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15.  
  16.  
  17. Sub Plugin_Initialize 
  18.     i=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Network\Real Mode Net\AutoLogon")
  19.     if i="00" then SetUIElement 1,true 
  20. End Sub
  21.  
  22.  
  23. Sub Plugin_CheckData(ElementIndex)
  24. End Sub
  25.  
  26. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  27.  b=GetUIElement(1)
  28.  if b=true then
  29.     Call RegWriteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Network\Real Mode Net\AutoLogon","00",3)
  30.  else
  31.     if RegValueExists("HKLM\Software\Microsoft\Windows\CurrentVersion\Network\Real Mode Net\AutoLogon")=true then
  32.        Call RegDeleteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Network\Real Mode Net\AutoLogon")
  33.     end if
  34.  end if
  35.  
  36. End Sub
  37.  
  38.  
  39. Sub Plugin_Terminate 
  40. End Sub
  41.  
  42.  
  43.  
  44.